home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1995-08-29 | 3.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 33 3a 35 35 3a 34 | 33 20 31 39 39 35 0a 3b | 13:55:4|3 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 64 69 | 72 65 64 2f 64 69 72 65 |/lisp/di|red/dire|
|00000090| 64 2d 72 63 73 2e 65 6c | 0a 3b 3b 3b 20 65 6d 61 |d-rcs.el|.;;; ema|
|000000a0| 63 73 20 76 65 72 73 69 | 6f 6e 20 31 39 2e 31 33 |cs versi|on 19.13|
|000000b0| 20 58 45 6d 61 63 73 20 | 4c 75 63 69 64 2e 0a 3b | XEmacs |Lucid..;|
|000000c0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000d0| 69 6f 6e 20 32 2e 32 35 | 3b 20 31 2d 53 65 70 2d |ion 2.25|; 1-Sep-|
|000000e0| 39 34 2e 0a 3b 3b 3b 20 | 6f 70 74 69 6d 69 7a 61 |94..;;; |optimiza|
|000000f0| 74 69 6f 6e 20 69 73 20 | 6f 6e 2e 0a 3b 3b 3b 20 |tion is |on..;;; |
|00000100| 74 68 69 73 20 66 69 6c | 65 20 75 73 65 73 20 6f |this fil|e uses o|
|00000110| 70 63 6f 64 65 73 20 77 | 68 69 63 68 20 64 6f 20 |pcodes w|hich do |
|00000120| 6e 6f 74 20 65 78 69 73 | 74 20 69 6e 20 45 6d 61 |not exis|t in Ema|
|00000130| 63 73 20 31 38 2e 0a 0a | 28 69 66 20 28 61 6e 64 |cs 18...|(if (and|
|00000140| 20 28 62 6f 75 6e 64 70 | 20 27 65 6d 61 63 73 2d | (boundp| 'emacs-|
|00000150| 76 65 72 73 69 6f 6e 29 | 0a 09 20 28 6f 72 20 28 |version)|.. (or (|
|00000160| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 70 6f |and (bou|ndp 'epo|
|00000170| 63 68 3a 3a 76 65 72 73 | 69 6f 6e 29 20 65 70 6f |ch::vers|ion) epo|
|00000180| 63 68 3a 3a 76 65 72 73 | 69 6f 6e 29 0a 09 20 20 |ch::vers|ion).. |
|00000190| 20 20 20 28 73 74 72 69 | 6e 67 2d 6c 65 73 73 70 | (stri|ng-lessp|
|000001a0| 20 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 20 22 | emacs-v|ersion "|
|000001b0| 31 39 22 29 29 29 0a 20 | 20 20 20 28 65 72 72 6f |19"))). | (erro|
|000001c0| 72 20 22 54 68 69 73 20 | 66 69 6c 65 20 77 61 73 |r "This |file was|
|000001d0| 20 63 6f 6d 70 69 6c 65 | 64 20 66 6f 72 20 45 6d | compile|d for Em|
|000001e0| 61 63 73 20 31 39 2e 22 | 29 29 0a 0a 28 64 65 66 |acs 19."|))..(def|
|000001f0| 63 6f 6e 73 74 20 64 69 | 72 65 64 2d 72 63 73 2d |const di|red-rcs-|
|00000200| 76 65 72 73 69 6f 6e 20 | 28 73 75 62 73 74 72 69 |version |(substri|
|00000210| 6e 67 20 22 21 52 65 76 | 69 73 69 6f 6e 3a 20 31 |ng "!Rev|ision: 1|
|00000220| 2e 36 20 21 22 20 31 31 | 20 2d 32 29 20 22 5c 0a |.6 !" 11| -2) "\.|
|00000230| 49 20 64 6f 6e 27 74 20 | 73 70 65 61 6b 20 52 43 |I don't |speak RC|
|00000240| 53 2d 65 73 65 22 29 0a | 28 72 65 71 75 69 72 65 |S-ese").|(require|
|00000250| 20 27 64 69 72 65 64 29 | 0a 28 66 73 65 74 20 27 | 'dired)|.(fset '|
|00000260| 64 69 72 65 64 2d 72 63 | 73 2d 6d 61 72 6b 2d 72 |dired-rc|s-mark-r|
|00000270| 63 73 2d 6c 6f 63 6b 65 | 64 2d 66 69 6c 65 73 20 |cs-locke|d-files |
|00000280| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 75 6e 66 |#[(&opti|onal unf|
|00000290| 6c 61 67 2d 70 29 20 22 | c0 09 c2 5c 22 87 22 20 |lag-p) "|...\"." |
|000002a0| 5b 64 69 72 65 64 2d 72 | 63 73 2d 6d 61 72 6b 2d |[dired-r|cs-mark-|
|000002b0| 72 63 73 2d 66 69 6c 65 | 73 20 75 6e 66 6c 61 67 |rcs-file|s unflag|
|000002c0| 2d 70 20 74 5d 20 33 20 | 22 5c 0a 4d 61 72 6b 20 |-p t] 3 |"\.Mark |
|000002d0| 61 6c 6c 20 66 69 6c 65 | 73 20 74 68 61 74 20 61 |all file|s that a|
|000002e0| 72 65 20 75 6e 64 65 72 | 20 52 43 53 20 63 6f 6e |re under| RCS con|
|000002f0| 74 72 6f 6c 20 61 6e 64 | 20 52 43 53 2d 6c 6f 63 |trol and| RCS-loc|
|00000300| 6b 65 64 2e 0a 57 69 74 | 68 20 70 72 65 66 69 78 |ked..Wit|h prefix|
|00000310| 20 61 72 67 75 6d 65 6e | 74 2c 20 75 6e 66 6c 61 | argumen|t, unfla|
|00000320| 67 20 61 6c 6c 20 74 68 | 6f 73 65 20 66 69 6c 65 |g all th|ose file|
|00000330| 73 2e 0a 4d 65 6e 74 69 | 6f 6e 73 20 52 43 53 20 |s..Menti|ons RCS |
|00000340| 66 69 6c 65 73 20 66 6f | 72 20 77 68 69 63 68 20 |files fo|r which |
|00000350| 61 20 77 6f 72 6b 69 6e | 67 20 66 69 6c 65 20 77 |a workin|g file w|
|00000360| 61 73 20 6e 6f 74 20 66 | 6f 75 6e 64 20 69 6e 20 |as not f|ound in |
|00000370| 74 68 69 73 20 62 75 66 | 66 65 72 2e 0a 54 79 70 |this buf|fer..Typ|
|00000380| 65 20 5c 5c 5b 64 69 72 | 65 64 2d 77 68 79 5d 20 |e \\[dir|ed-why] |
|00000390| 74 6f 20 73 65 65 20 74 | 68 65 6d 20 61 67 61 69 |to see t|hem agai|
|000003a0| 6e 2e 22 20 22 50 22 5d | 29 0a 28 66 73 65 74 20 |n." "P"]|).(fset |
|000003b0| 27 64 69 72 65 64 2d 72 | 63 73 2d 6d 61 72 6b 2d |'dired-r|cs-mark-|
|000003c0| 72 63 73 2d 66 69 6c 65 | 73 20 23 5b 28 26 6f 70 |rcs-file|s #[(&op|
|000003d0| 74 69 6f 6e 61 6c 20 75 | 6e 66 6c 61 67 2d 70 20 |tional u|nflag-p |
|000003e0| 6c 6f 63 6b 65 64 29 20 | 22 c0 c1 5c 6e ab 83 c3 |locked) |"..\n...|
|000003f0| aa 81 c4 0d ab 83 c6 aa | 81 c7 23 88 5c 6e ab 83 |........|..#.\n..|
|00000400| c8 aa 82 0e 09 ca 89 89 | 89 89 1e 0b 1e 0c 1e 0d |........|........|
|00000410| 1e 0e 1e 0f 1e 09 d0 d1 | d0 d2 0e 13 5c 22 5c 22 |........|....\"\"|
|00000420| 88 0e 0f 47 16 0b 0e 0f | ab ab d4 0e 0f 40 21 16 |...G....|.....@!.|
|00000430| 0e 0e 0f 41 16 0f 8a d5 | 0e 0e 21 ab 86 d6 d7 21 |...A....|..!....!|
|00000440| 88 aa 8f d8 d9 0e 0e 5c | 22 88 da 0e 0e 21 0e 0d |.......\|"....!..|
|00000450| 42 16 0d 29 aa 51 0e 0d | ac 9a c0 db 0e 0b 0d ab |B..).Q..|........|
|00000460| 83 c6 aa 81 c7 dc 0e 0b | 21 5c 6e ab 83 dd aa 81 |........|!\n.....|
|00000470| c7 25 88 aa ad 0e 0d 47 | 16 0c de df 0e 0d 5c 22 |.%.....G|......\"|
|00000480| 88 c0 e0 0e 0b 0d ab 83 | c6 aa 81 c7 dc 0e 0b 21 |........|.......!|
|00000490| 0e 0b 0e 0c 5a 5c 6e ab | 83 dd aa 81 c7 0e 0c 0e |....Z\n.|........|
|000004a0| 0d 26 08 88 0e 0d 2e 06 | 87 22 20 5b 6d 65 73 73 |.&......|." [mess|
|000004b0| 61 67 65 20 22 25 73 20 | 25 73 52 43 53 20 63 6f |age "%s |%sRCS co|
|000004c0| 6e 74 72 6f 6c 6c 65 64 | 20 66 69 6c 65 73 2e 2e |ntrolled| files..|
|000004d0| 2e 22 20 75 6e 66 6c 61 | 67 2d 70 20 22 55 6e 6d |." unfla|g-p "Unm|
|000004e0| 61 72 6b 69 6e 67 22 20 | 22 4d 61 72 6b 69 6e 67 |arking" |"Marking|
|000004f0| 22 20 6c 6f 63 6b 65 64 | 20 22 6c 6f 63 6b 65 64 |" locked| "locked|
|00000500| 20 22 20 22 22 20 33 32 | 20 64 69 72 65 64 2d 6d | " "" 32| dired-m|
|00000510| 61 72 6b 65 72 2d 63 68 | 61 72 20 6e 69 6c 20 74 |arker-ch|ar nil t|
|00000520| 6f 74 61 6c 20 63 6f 75 | 6e 74 20 66 61 69 6c 75 |otal cou|nt failu|
|00000530| 72 65 73 20 77 66 20 72 | 63 73 2d 66 69 6c 65 73 |res wf r|cs-files|
|00000540| 20 6d 61 70 63 61 72 20 | 23 5b 28 64 69 72 29 20 | mapcar |#[(dir) |
|00000550| 22 c0 c1 5c 6e 21 21 c3 | 9a ae 92 c4 0d ab 85 c6 |"..\n!!.|........|
|00000560| 5c 6e 21 aa 83 c7 5c 6e | 21 0e 07 5c 22 89 16 07 |\n!...\n|!..\"...|
|00000570| 87 22 20 5b 66 69 6c 65 | 2d 6e 61 6d 65 2d 6e 6f |." [file|-name-no|
|00000580| 6e 64 69 72 65 63 74 6f | 72 79 20 64 69 72 65 63 |ndirecto|ry direc|
|00000590| 74 6f 72 79 2d 66 69 6c | 65 2d 6e 61 6d 65 20 64 |tory-fil|e-name d|
|000005a0| 69 72 20 22 52 43 53 22 | 20 61 70 70 65 6e 64 20 |ir "RCS"| append |
|000005b0| 6c 6f 63 6b 65 64 20 72 | 63 73 2d 6c 6f 63 6b 65 |locked r|cs-locke|
|000005c0| 64 2d 66 69 6c 65 73 20 | 72 63 73 2d 66 69 6c 65 |d-files |rcs-file|
|000005d0| 73 5d 20 33 5d 20 63 61 | 72 20 64 69 72 65 64 2d |s] 3] ca|r dired-|
|000005e0| 73 75 62 64 69 72 2d 61 | 6c 69 73 74 20 72 63 73 |subdir-a|list rcs|
|000005f0| 2d 77 6f 72 6b 69 6e 67 | 2d 66 69 6c 65 20 64 69 |-working|-file di|
|00000600| 72 65 64 2d 67 6f 74 6f | 2d 66 69 6c 65 20 64 69 |red-goto|-file di|
|00000610| 72 65 64 2d 6d 61 72 6b | 2d 66 69 6c 65 20 31 20 |red-mark|-file 1 |
|00000620| 64 69 72 65 64 2d 6c 6f | 67 20 22 52 43 53 20 77 |dired-lo|g "RCS w|
|00000630| 6f 72 6b 69 6e 67 20 66 | 69 6c 65 20 6e 6f 74 20 |orking f|ile not |
|00000640| 66 6f 75 6e 64 3a 20 25 | 73 5c 6e 22 20 64 69 72 |found: %|s\n" dir|
|00000650| 65 64 2d 6d 61 6b 65 2d | 72 65 6c 61 74 69 76 65 |ed-make-|relative|
|00000660| 20 22 25 64 20 25 73 52 | 43 53 20 66 69 6c 65 25 | "%d %sR|CS file%|
|00000670| 73 20 25 73 6d 61 72 6b | 65 64 2e 22 20 64 69 72 |s %smark|ed." dir|
|00000680| 65 64 2d 70 6c 75 72 61 | 6c 2d 73 20 22 75 6e 22 |ed-plura|l-s "un"|
|00000690| 20 64 69 72 65 64 2d 6c | 6f 67 2d 73 75 6d 6d 61 | dired-l|og-summa|
|000006a0| 72 79 20 22 52 43 53 20 | 77 6f 72 6b 69 6e 67 20 |ry "RCS |working |
|000006b0| 66 69 6c 65 20 6e 6f 74 | 20 66 6f 75 6e 64 20 25 |file not| found %|
|000006c0| 73 22 20 22 25 64 20 25 | 73 52 43 53 20 66 69 6c |s" "%d %|sRCS fil|
|000006d0| 65 25 73 3a 20 25 64 20 | 25 73 6d 61 72 6b 65 64 |e%s: %d |%smarked|
|000006e0| 20 2d 20 25 64 20 6e 6f | 74 20 66 6f 75 6e 64 20 | - %d no|t found |
|000006f0| 25 73 2e 22 5d 20 39 20 | 22 5c 0a 4d 61 72 6b 20 |%s."] 9 |"\.Mark |
|00000700| 61 6c 6c 20 66 69 6c 65 | 73 20 74 68 61 74 20 61 |all file|s that a|
|00000710| 72 65 20 75 6e 64 65 72 | 20 52 43 53 20 63 6f 6e |re under| RCS con|
|00000720| 74 72 6f 6c 2e 0a 57 69 | 74 68 20 70 72 65 66 69 |trol..Wi|th prefi|
|00000730| 78 20 61 72 67 75 6d 65 | 6e 74 2c 20 75 6e 66 6c |x argume|nt, unfl|
|00000740| 61 67 20 61 6c 6c 20 74 | 68 6f 73 65 20 66 69 6c |ag all t|hose fil|
|00000750| 65 73 2e 0a 4d 65 6e 74 | 69 6f 6e 73 20 52 43 53 |es..Ment|ions RCS|
|00000760| 20 66 69 6c 65 73 20 66 | 6f 72 20 77 68 69 63 68 | files f|or which|
|00000770| 20 61 20 77 6f 72 6b 69 | 6e 67 20 66 69 6c 65 20 | a worki|ng file |
|00000780| 77 61 73 20 6e 6f 74 20 | 66 6f 75 6e 64 20 69 6e |was not |found in|
|00000790| 20 74 68 69 73 20 62 75 | 66 66 65 72 2e 0a 54 79 | this bu|ffer..Ty|
|000007a0| 70 65 20 5c 5c 5b 64 69 | 72 65 64 2d 77 68 79 5d |pe \\[di|red-why]|
|000007b0| 20 74 6f 20 73 65 65 20 | 74 68 65 6d 20 61 67 61 | to see |them aga|
|000007c0| 69 6e 2e 22 20 22 50 22 | 5d 29 0a 28 66 73 65 74 |in." "P"|]).(fset|
|000007d0| 20 27 72 63 73 2d 66 69 | 6c 65 73 20 23 5b 28 64 | 'rcs-fi|les #[(d|
|000007e0| 69 72 65 63 74 6f 72 79 | 29 20 22 c0 09 21 11 c0 |irectory|) "..!..|
|000007f0| c2 c3 09 5c 22 21 c4 09 | c5 c6 23 1e 07 1e 08 c9 |...\"!..|..#.....|
|00000800| 0e 08 21 ab 8c ca c4 0e | 08 c5 c6 23 0e 07 5c 22 |..!.....|...#..\"|
|00000810| 16 07 0e 07 2a 87 22 20 | 5b 66 69 6c 65 2d 6e 61 |....*." |[file-na|
|00000820| 6d 65 2d 61 73 2d 64 69 | 72 65 63 74 6f 72 79 20 |me-as-di|rectory |
|00000830| 64 69 72 65 63 74 6f 72 | 79 20 65 78 70 61 6e 64 |director|y expand|
|00000840| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 22 52 43 53 22 |-file-na|me "RCS"|
|00000850| 20 64 69 72 65 63 74 6f | 72 79 2d 66 69 6c 65 73 | directo|ry-files|
|00000860| 20 74 20 22 2c 76 24 22 | 20 72 63 73 2d 66 69 6c | t ",v$"| rcs-fil|
|00000870| 65 73 20 72 63 73 2d 64 | 69 72 20 66 69 6c 65 2d |es rcs-d|ir file-|
|00000880| 64 69 72 65 63 74 6f 72 | 79 2d 70 20 61 70 70 65 |director|y-p appe|
|00000890| 6e 64 5d 20 35 20 22 5c | 0a 52 65 74 75 72 6e 20 |nd] 5 "\|.Return |
|000008a0| 6c 69 73 74 20 6f 66 20 | 52 43 53 20 64 61 74 61 |list of |RCS data|
|000008b0| 20 66 69 6c 65 73 20 66 | 6f 72 20 61 6c 6c 20 52 | files f|or all R|
|000008c0| 43 53 20 63 6f 6e 74 72 | 6f 6c 6c 65 64 20 66 69 |CS contr|olled fi|
|000008d0| 6c 65 73 20 69 6e 20 44 | 49 52 45 43 54 4f 52 59 |les in D|IRECTORY|
|000008e0| 2e 22 5d 29 0a 28 64 65 | 66 76 61 72 20 72 63 73 |."]).(de|fvar rcs|
|000008f0| 2d 6f 75 74 70 75 74 2d | 62 75 66 66 65 72 20 22 |-output-|buffer "|
|00000900| 2a 52 43 53 2d 6f 75 74 | 70 75 74 2a 22 20 22 5c |*RCS-out|put*" "\|
|00000910| 0a 49 66 20 6e 6f 6e 2d | 6e 69 6c 2c 20 62 75 66 |.If non-|nil, buf|
|00000920| 66 65 72 20 6e 61 6d 65 | 20 75 73 65 64 20 62 79 |fer name| used by|
|00000930| 20 66 75 6e 63 74 69 6f | 6e 20 60 72 63 73 2d 67 | functio|n `rcs-g|
|00000940| 65 74 2d 6f 75 74 70 75 | 74 2d 62 75 66 66 65 72 |et-outpu|t-buffer|
|00000950| 27 20 28 71 2e 76 2e 29 | 2e 0a 49 66 20 6e 69 6c |' (q.v.)|..If nil|
|00000960| 2c 20 61 20 6e 65 77 20 | 62 75 66 66 65 72 20 69 |, a new |buffer i|
|00000970| 73 20 75 73 65 64 20 65 | 61 63 68 20 74 69 6d 65 |s used e|ach time|
|00000980| 2e 22 29 0a 28 66 73 65 | 74 20 27 72 63 73 2d 67 |.").(fse|t 'rcs-g|
|00000990| 65 74 2d 6f 75 74 70 75 | 74 2d 62 75 66 66 65 72 |et-outpu|t-buffer|
|000009a0| 20 23 5b 28 66 69 6c 65 | 29 20 22 c0 19 c2 0b ae | #[(file|) ".....|
|000009b0| 81 c4 21 1d 0b ac 84 c6 | c4 21 15 8a 0d 71 88 c7 |..!.....|.!...q..|
|000009c0| 16 08 c9 ca 0e 0b 21 21 | 16 0c cd 20 88 29 0d 2a |......!!|... .).*|
|000009d0| 87 22 20 5b 66 75 6e 64 | 61 6d 65 6e 74 61 6c 2d |." [fund|amental-|
|000009e0| 6d 6f 64 65 20 64 65 66 | 61 75 6c 74 2d 6d 61 6a |mode def|ault-maj|
|000009f0| 6f 72 2d 6d 6f 64 65 20 | 67 65 74 2d 62 75 66 66 |or-mode |get-buff|
|00000a00| 65 72 2d 63 72 65 61 74 | 65 20 72 63 73 2d 6f 75 |er-creat|e rcs-ou|
|00000a10| 74 70 75 74 2d 62 75 66 | 66 65 72 20 22 2a 52 43 |tput-buf|fer "*RC|
|00000a20| 53 2d 6f 75 74 70 75 74 | 2a 22 20 62 75 66 20 67 |S-output|*" buf g|
|00000a30| 65 6e 65 72 61 74 65 2d | 6e 65 77 2d 62 75 66 66 |enerate-|new-buff|
|00000a40| 65 72 20 6e 69 6c 20 62 | 75 66 66 65 72 2d 72 65 |er nil b|uffer-re|
|00000a50| 61 64 2d 6f 6e 6c 79 20 | 66 69 6c 65 2d 6e 61 6d |ad-only |file-nam|
|00000a60| 65 2d 64 69 72 65 63 74 | 6f 72 79 20 65 78 70 61 |e-direct|ory expa|
|00000a70| 6e 64 2d 66 69 6c 65 2d | 6e 61 6d 65 20 66 69 6c |nd-file-|name fil|
|00000a80| 65 20 64 65 66 61 75 6c | 74 2d 64 69 72 65 63 74 |e defaul|t-direct|
|00000a90| 6f 72 79 20 65 72 61 73 | 65 2d 62 75 66 66 65 72 |ory eras|e-buffer|
|00000aa0| 5d 20 33 5d 29 0a 28 66 | 73 65 74 20 27 72 63 73 |] 3]).(f|set 'rcs|
|00000ab0| 2d 6c 6f 63 6b 65 64 2d | 66 69 6c 65 73 20 23 5b |-locked-|files #[|
|00000ac0| 28 64 69 72 65 63 74 6f | 72 79 29 20 22 c0 09 21 |(directo|ry) "..!|
|00000ad0| c2 09 21 c3 1c 1a 1d 5c | 6e ad a4 8a 0d 71 88 c6 |..!....\|n....q..|
|00000ae0| c7 c8 c3 c9 c3 ca cb 5c | 6e 26 08 88 65 62 88 6d |.......\|n&..eb.m|
|00000af0| ac 8c 60 cc 79 88 60 53 | 7b 0c 42 14 aa 71 0c 29 |..`.y.`S|{.B..q.)|
|00000b00| 2b 87 22 20 5b 72 63 73 | 2d 67 65 74 2d 6f 75 74 |+." [rcs|-get-out|
|00000b10| 70 75 74 2d 62 75 66 66 | 65 72 20 64 69 72 65 63 |put-buff|er direc|
|00000b20| 74 6f 72 79 20 72 63 73 | 2d 66 69 6c 65 73 20 6e |tory rcs|-files n|
|00000b30| 69 6c 20 72 65 73 75 6c | 74 20 6f 75 74 70 75 74 |il resul|t output|
|00000b40| 2d 62 75 66 66 65 72 20 | 61 70 70 6c 79 20 63 61 |-buffer |apply ca|
|00000b50| 6c 6c 2d 70 72 6f 63 65 | 73 73 20 22 72 6c 6f 67 |ll-proce|ss "rlog|
|00000b60| 22 20 74 20 22 2d 4c 22 | 20 22 2d 52 22 20 31 5d |" t "-L"| "-R" 1]|
|00000b70| 20 39 20 22 5c 0a 52 65 | 74 75 72 6e 20 6c 69 73 | 9 "\.Re|turn lis|
|00000b80| 74 20 6f 66 20 52 43 53 | 20 64 61 74 61 20 66 69 |t of RCS| data fi|
|00000b90| 6c 65 20 6e 61 6d 65 73 | 20 6f 66 20 61 6c 6c 20 |le names| of all |
|00000ba0| 52 43 53 2d 6c 6f 63 6b | 65 64 20 66 69 6c 65 73 |RCS-lock|ed files|
|00000bb0| 20 69 6e 20 44 49 52 45 | 43 54 4f 52 59 2e 22 5d | in DIRE|CTORY."]|
|00000bc0| 29 0a 28 66 73 65 74 20 | 27 72 63 73 2d 77 6f 72 |).(fset |'rcs-wor|
|00000bd0| 6b 69 6e 67 2d 66 69 6c | 65 20 23 5b 28 66 69 6c |king-fil|e #[(fil|
|00000be0| 65 6e 61 6d 65 29 20 22 | c0 c1 5c 6e 5c 22 ac 82 |ename) "|..\n\"..|
|00000bf0| 5c 6e 87 5c 6e c3 c4 4f | 12 c5 5c 6e 21 89 1e 06 |\n.\n..O|..\n!...|
|00000c00| ac 83 5c 6e aa 9a c7 0e | 06 21 1e 08 c9 0e 08 21 |..\n....|.!.....!|
|00000c10| ca 9a ab 8a c5 0e 08 21 | c9 5c 6e 21 50 aa 81 5c |.......!|.\n!P..\|
|00000c20| 6e 29 29 87 22 20 5b 73 | 74 72 69 6e 67 2d 6d 61 |n))." [s|tring-ma|
|00000c30| 74 63 68 20 22 2c 76 24 | 22 20 66 69 6c 65 6e 61 |tch ",v$|" filena|
|00000c40| 6d 65 20 30 20 2d 32 20 | 66 69 6c 65 2d 6e 61 6d |me 0 -2 |file-nam|
|00000c50| 65 2d 64 69 72 65 63 74 | 6f 72 79 20 64 69 72 20 |e-direct|ory dir |
|00000c60| 64 69 72 65 63 74 6f 72 | 79 2d 66 69 6c 65 2d 6e |director|y-file-n|
|00000c70| 61 6d 65 20 64 69 72 2d | 66 69 6c 65 20 66 69 6c |ame dir-|file fil|
|00000c80| 65 2d 6e 61 6d 65 2d 6e | 6f 6e 64 69 72 65 63 74 |e-name-n|ondirect|
|00000c90| 6f 72 79 20 22 52 43 53 | 22 5d 20 34 20 22 5c 0a |ory "RCS|"] 4 "\.|
|00000ca0| 43 6f 6e 76 65 72 74 20 | 61 6e 20 52 43 53 20 66 |Convert |an RCS f|
|00000cb0| 69 6c 65 20 6e 61 6d 65 | 20 74 6f 20 61 20 77 6f |ile name| to a wo|
|00000cc0| 72 6b 69 6e 67 20 66 69 | 6c 65 20 6e 61 6d 65 2e |rking fi|le name.|
|00000cd0| 0a 54 68 61 74 20 69 73 | 2c 20 63 6f 6e 76 65 72 |.That is|, conver|
|00000ce0| 74 20 60 2e 2e 2e 66 6f | 6f 2c 76 27 20 61 6e 64 |t `...fo|o,v' and|
|00000cf0| 20 60 2e 2e 2e 52 43 53 | 2f 66 6f 6f 2c 76 27 20 | `...RCS|/foo,v' |
|00000d00| 74 6f 20 60 2e 2e 2e 66 | 6f 6f 27 2e 0a 49 66 20 |to `...f|oo'..If |
|00000d10| 46 49 4c 45 4e 41 4d 45 | 20 64 6f 65 73 6e 27 74 |FILENAME| doesn't|
|00000d20| 20 65 6e 64 20 69 6e 20 | 60 2c 76 27 20 69 74 20 | end in |`,v' it |
|00000d30| 69 73 20 72 65 74 75 72 | 6e 65 64 20 75 6e 63 68 |is retur|ned unch|
|00000d40| 61 6e 67 65 64 2e 22 5d | 29 0a 28 66 73 65 74 20 |anged."]|).(fset |
|00000d50| 27 64 69 72 65 64 2d 64 | 6f 2d 76 63 2d 72 65 67 |'dired-d|o-vc-reg|
|00000d60| 69 73 74 65 72 20 23 5b | 28 26 6f 70 74 69 6f 6e |ister #[|(&option|
|00000d70| 61 6c 20 61 72 67 29 20 | 22 c0 c1 5c 6e c3 c4 24 |al arg) |"..\n..$|
|00000d80| 87 22 20 5b 64 69 72 65 | 64 2d 6d 61 72 6b 2d 6d |." [dire|d-mark-m|
|00000d90| 61 70 2d 63 68 65 63 6b | 20 64 69 72 65 64 2d 76 |ap-check| dired-v|
|00000da0| 63 2d 72 65 67 69 73 74 | 65 72 20 61 72 67 20 72 |c-regist|er arg r|
|00000db0| 65 67 69 73 74 65 72 20 | 74 5d 20 35 20 22 5c 0a |egister |t] 5 "\.|
|00000dc0| 52 65 67 69 73 74 65 72 | 20 74 68 65 20 6d 61 72 |Register| the mar|
|00000dd0| 6b 65 64 20 28 6f 72 20 | 6e 65 78 74 20 41 52 47 |ked (or |next ARG|
|00000de0| 29 20 66 69 6c 65 73 20 | 75 6e 64 65 72 20 76 65 |) files |under ve|
|00000df0| 72 73 69 6f 6e 20 63 6f | 6e 74 72 6f 6c 2e 22 20 |rsion co|ntrol." |
|00000e00| 22 50 22 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |"P"]).(b|yte-code|
|00000e10| 20 22 c0 c1 4d 88 c2 c3 | 21 87 22 20 5b 64 69 72 | "..M...|!." [dir|
|00000e20| 65 64 2d 76 63 2d 72 65 | 67 69 73 74 65 72 20 23 |ed-vc-re|gister #|
|00000e30| 5b 6e 69 6c 20 22 c0 20 | c1 1a 1b c4 c5 c6 8f 88 |[nil ". |........|
|00000e40| 5c 6e 3f 3f ad 89 c7 c8 | 0b 5c 6e 23 88 c9 0b 21 |\n??....|.\n#...!|
|00000e50| 2a 87 22 20 5b 64 69 72 | 65 64 2d 67 65 74 2d 66 |*." [dir|ed-get-f|
|00000e60| 69 6c 65 6e 61 6d 65 20 | 6e 69 6c 20 66 61 69 6c |ilename |nil fail|
|00000e70| 75 72 65 20 66 69 6c 65 | 20 65 72 72 20 28 62 79 |ure file| err (by|
|00000e80| 74 65 2d 63 6f 64 65 20 | 22 c0 8b 87 22 20 5b 28 |te-code |"..." [(|
|00000e90| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 09 21 88 |(byte-co|de "..!.|
|00000ea0| c2 20 87 22 20 5b 66 69 | 6e 64 2d 66 69 6c 65 20 |. ." [fi|nd-file |
|00000eb0| 66 69 6c 65 20 76 63 2d | 72 65 67 69 73 74 65 72 |file vc-|register|
|00000ec0| 5d 20 32 29 29 5d 20 31 | 29 20 28 28 65 72 72 6f |] 2))] 1|) ((erro|
|00000ed0| 72 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 11 |r (byte-|code "..|
|00000ee0| c2 87 22 20 5b 65 72 72 | 20 66 61 69 6c 75 72 65 |.." [err| failure|
|00000ef0| 20 6e 69 6c 5d 20 31 29 | 29 29 20 64 69 72 65 64 | nil] 1)|)) dired|
|00000f00| 2d 6c 6f 67 20 22 52 65 | 67 69 73 74 65 72 20 65 |-log "Re|gister e|
|00000f10| 72 72 6f 72 20 66 6f 72 | 20 25 73 3a 5c 6e 25 73 |rror for| %s:\n%s|
|00000f20| 5c 6e 22 20 64 69 72 65 | 64 2d 6d 61 6b 65 2d 72 |\n" dire|d-make-r|
|00000f30| 65 6c 61 74 69 76 65 5d | 20 34 5d 20 70 72 6f 76 |elative]| 4] prov|
|00000f40| 69 64 65 20 64 69 72 65 | 64 2d 72 63 73 5d 20 32 |ide dire|d-rcs] 2|
|00000f50| 29 0a | |). | |
+--------+-------------------------+-------------------------+--------+--------+
